home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / dev / e / energy.lha / Energy / Easy / bootname.e next >
Text File  |  1996-05-18  |  269b  |  16 lines
  1.  
  2. /* bootname.e */
  3.  
  4. MODULE    'dos/dos','exec/memory'
  5.  
  6. PROC main()
  7.  
  8. DEF myinfo:PTR TO fileinfoblock,success
  9.    
  10.       myinfo := NewM(SIZEOF fileinfoblock,MEMF_CLEAR)
  11.  
  12.        IF success := Examine(0,myinfo) THEN WriteF('\s\n',myinfo.filename)
  13.  
  14.       Dispose(myinfo)
  15. ENDPROC
  16.